home *** CD-ROM | disk | FTP | other *** search
- ;------------------------------------------------------------------------------
- ; .ss.
- ; `²²'
- ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
- ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
- ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
- ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
- ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
- ; .sS²°$$$²²°"' d²°'
- ; .$$² .$$'
- ; $$$.,d$$'
- ; `²S$$S²'
- ;------------------------------------------------------------------------------
- ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
- ;------------------------------------------------------------------------------
- ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
- ;------------------------------------------------------------------------------
-
- Boolean BOOLEAN001
- Integer INTEGER001
- String STRING001
- String STRING002
- String STRING003
- String STRING004
-
- ;------------------------------------------------------------------------------
-
- STRING002 = ReadLine(PPEPath() + "NUP.CFG", 1)
- STRING003 = ReadLine(PPEPath() + "NUP.CFG", 2)
- INTEGER001 = ReadLine(PPEPath() + "NUP.CFG", 3)
- STRING004 = ReadLine(PPEPath() + "NUP.CFG", 4)
- Cls
- DispFile PPEPath() + "NUP.PCB", 0
- AnsiPos 1, GetY()
- Print "@CLREOL@" + STRING002
- While (1) Do
- STRING001 = ""
- STRING001 = Inkey()
- If ((STRING001 == "LEFT") || (STRING001 == "4")) Then
- AnsiPos 1, GetY()
- Print "@CLREOL@" + STRING002
- BOOLEAN001 = 0
- Endif
- If ((STRING001 == "RIGHT") || (STRING001 == "6")) Then
- AnsiPos 1, GetY()
- Print "@CLREOL@" + STRING003
- BOOLEAN001 = 1
- Endif
- If (STRING001 == Chr(13)) Break
- EndWhile
- If (BOOLEAN001 == 0) End
- GetUser
- PrintLn
- If (U_Sec < INTEGER001) Then
- Print "@X0FSorru dude you do not have the aXs needed to see it :("
- End
- Endif
- FAppend 1, PPEPath() + "NUP.LOG", 0, 0
- FPutLn 1, "User: " + U_Name() + " Date: " + String(Date()) + " Time: " + String(Time())
- FClose 1
- Cls
- PrintLn "@X02The NUP is: " + STRING004
- Print "@PAUSE@"
-
- ;------------------------------------------------------------------------------
- ;
- ; Usage report (before postprocessing)
- ;
- ; ■ Statements used :
- ;
- ; 2 End
- ; 2 Cls
- ; 6 Goto
- ; 8 Let
- ; 5 Print
- ; 2 PrintLn
- ; 6 If
- ; 1 DispFile
- ; 1 FAppend
- ; 1 FClose
- ; 1 FPutLn
- ; 1 GetUser
- ; 3 AnsiPos
- ;
- ;
- ; ■ Functions used :
- ;
- ; 15 +
- ; 6 ==
- ; 1 <
- ; 4 !
- ; 2 ||
- ; 1 Chr()
- ; 1 Date()
- ; 1 Time()
- ; 1 U_Name()
- ; 1 Inkey()
- ; 2 String()
- ; 6 PPEPath()
- ; 4 ReadLine()
- ; 3 GetY()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Analysis flags : No flag
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Postprocessing report
- ;
- ; 0 For/Next
- ; 1 While/EndWhile
- ; 3 If/Then or If/Then/Else
- ; 0 Select Case
- ;
- ;------------------------------------------------------------------------------
- ; AEGiS Corp - Break the routines, code against the machines!
- ;------------------------------------------------------------------------------
-